Sub test()
    Dim a, b, i As Long, ii As Integer
    With Range("b1", Range("b" & Rows.Count).End(xlUp))
        a = .Value
        ReDim Preserve a(1 To UBound(a, 1), 1 To 4)
        b = Range("c1", Range("c" & Rows.Count).End(xlUp)).Resize(, 3).Value
        With CreateObject("Scripting.Dictionary")
            .CompareMode = vbTextCompare
            For i = 1 To UBound(a, 1)
                .Add a(i, 1), i
            Next
            For i = 1 To UBound(b, 1)
                If .exists(b(i, 1)) Then
                    For ii = 2 To 4
                        a(.Item(b(i, 1)), ii) = b(i, ii - 1)
                    Next
                End If
            Next
        End With
        .Resize(, 4).Value = b
    End With
End Sub